(SETQ IBASE (SETQ BASE (ADD1 7))) 

(LAP QCOUNT SUBR) 
	(MOVE 2 1) 
	(MOVE 1 (SPECIAL OBLIST)) 
	(JCALL 2 (E QCOUNT1)) 
	NIL 

(LAP QCOUNT1 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(JUMPE 1 TAG1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E QCOUNT2)) 
	(JRST 0 TAG1) 
TAG2 	(MOVE 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 2 (E QCOUNT1)) 
	(MOVE 2 0 P) 
	(HRRZ@ 1 -1 P) 
	(CALL 2 (E QCOUNT1)) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP QCOUNT2 SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(MOVEI 2 (QUOTE COUNTER)) 
	(CALL 2 (E GET)) 
	(MOVEM 1 0 P) 
	(JUMPE 1 TAG5) 
	(MOVE 1 -2 P) 
	(CALL 1 (E PRINC)) 
	(MOVEI 1 (QUOTE /	)) 
	(CALL 1 (E PRINC)) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E LINELENGTH)) 
	(PUSH P 1) 
	(CALL 0 (E CHRCT)) 
	(MOVE 2 1) 
	(POP P 1) 
	(CALL 2 (E *DIF)) 
	(MOVEI 2 (QUOTE 15)) 
	(CALL 2 (E *LESS)) 
	(JUMPE 1 TAG7) 
	(MOVEI 1 (QUOTE /	)) 
	(CALL 1 (E PRINC)) 
TAG7 	(MOVEI 2 (QUOTE FIXNUM)) 
	(MOVE 1 0 P) 
	(CALL 2 (E MAKNUM)) 
	(CALL 1 (E PRINC)) 
	(CALL 1 (E TERPRI)) 
	(JRST 0 TAG4) 
TAG5 
TAG10 
TAG4 	(MOVE 1 0 P) 
	(JUMPE 1 TAG13) 
	(MOVE 1 -1 P) 
	(JUMPE 1 TAG13) 
	(MOVEI 3 (QUOTE COUNTER)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 -2 P) 
	(CALL 3 (E PUTPROP)) 
TAG13 	(MOVEI 1 (QUOTE NIL)) 
	(SUB P (C 0 0 3 3)) 
	(POPJ P) 
	NIL 

(LAP QNIT SUBR) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NOUUO)) 
	(MOVEI 3 (QUOTE SUBR)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVEI 1 (QUOTE aaaaa)) 
	(CALL 3 (E PUTPROP)) 
	(MOVEI 2 (QUOTE (SUBR))) 
	(MOVEI 1 (QUOTE aaaaa)) 
	(CALL 2 (E GETL)) 
	(CALL 1 (E FOONIT)) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 1 (E QCOUNT)) 
	(MOVEI 1 (QUOTE T)) 
	(CALL 1 (E NOUUO)) 
	(MOVEI 2 (QUOTE SUBR)) 
	(MOVEI 1 (QUOTE FOOCNT)) 
	(CALL 2 (E GET)) 
	(CALL 1 (E CNTSET)) 
	(MOVEI 1 (QUOTE (aaaaa))) 
	(CALL 17 (E REMOB)) 
	(MOVEI 1 (QUOTE NIL)) 
	(POPJ P) 
	NIL 

(LAP OPS FSUBR) 
	(PUSH P 1) 
TAG1 	(MOVE 1 0 P) 
	(JUMPN 1 TAG6) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG2) 
TAG6 	(MOVEI 3 (QUOTE SYM)) 
	(HRRZ@ 2 0 P) 
	(HLRZ@ 2 2) 
	(HLRZ@ 1 0 P) 
	(CALL 3 (E PUTPROP)) 
	(HRRZ@ 1 0 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(DSKIN (QCOUNT . LAP)) 

(QNIT)